home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / misc / BoulderEngine.lha / BOULDER_feb_12.lha / CAVES.C < prev    next >
Encoding:
C/C++ Source or Header  |  1980-01-01  |  13.7 KB  |  293 lines
  1. /* =================================================
  2.    = BOULDER DASH CAVES ©1993 by SAVELSOFT         =
  3.    =  KAUNAS                                       =
  4.    ================================================= */
  5. #include "INCLUDE:exec/types.h"
  6. STATIC UBYTE g[395];
  7. STATIC USHORT SDA[5];
  8. UBYTE maximum()
  9. {return(12); } /* NUMBER OF CAVES */
  10. UBYTE database(i)
  11. USHORT i;
  12. { return(g[i]); }
  13. setlevel(n)
  14. USHORT n;
  15. {
  16.  if(n==0) {level0();}
  17.  if(n==1) {level1();}
  18.  if(n==2) {level2();}
  19.  if(n==3) {level3();}
  20.  if(n==4) {level4();}
  21.  if(n==5) {level5();}
  22.  if(n==6) {level6();}
  23.  if(n==7) {level7();}
  24.  if(n==8) {level8();}
  25.  if(n==9) {level9();}
  26.  if(n==10) {level10();}
  27.  if(n==11) {level11();}
  28.  if(n==12) {level12();}
  29. }
  30. USHORT ssda(n)
  31. SHORT n;
  32. { return(SDA[n]);}
  33. level0()
  34. {
  35. SHORT n;
  36. STATIC UBYTE h[]={
  37.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  38.       7,1,9,1,2,2,8,2,1,1,1,1,1,1,1,8,1,2,1,3,1,1,2,8,2,1,10,1,1,7,
  39.       7,1,3,1,0,3,8,2,3,2,1,1,3,1,1,8,1,3,1,2,1,1,2,8,2,2,0,1,1,7,
  40.       7,2,2,3,3,1,8,1,1,1,0,1,1,3,1,8,3,1,1,1,2,1,1,8,1,1,1,1,3,7,
  41.       7,2,1,1,1,3,8,1,1,1,0,0,1,1,1,8,0,0,5,1,2,1,1,8,1,1,1,1,0,7,
  42.       7,1,1,1,1,0,8,1,0,0,5,1,1,1,1,8,0,1,1,1,1,1,1,8,1,0,0,1,0,7,
  43.       7,0,0,2,1,1,8,1,1,1,1,1,1,2,1,8,1,1,1,1,1,2,1,8,1,1,1,1,2,7,
  44.       7,8,8,8,8,8,8,1,1,1,1,1,1,1,1,8,1,1,0,0,1,1,2,8,3,2,1,1,1,7,
  45.       7,1,0,0,0,0,1,1,1,1,1,1,1,1,1,8,1,2,1,1,1,1,1,8,3,1,1,1,0,7,
  46.       7,1,1,1,1,1,1,1,1,1,1,3,1,1,1,8,1,1,1,1,1,1,1,8,1,1,3,1,0,7,
  47.       7,0,0,0,0,4,0,0,0,0,0,0,1,1,1,8,4,0,2,0,0,0,1,8,1,1,1,0,0,7,
  48.       7,1,1,1,1,3,1,1,1,1,1,1,1,1,1,8,1,0,0,1,3,1,1,8,1,1,4,0,1,7,
  49.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  50.  
  51. SDA[1]=2000; SDA[2]=30; SDA[3]=40; SDA[4]=10; SDA[5]=15;
  52. for(n=0;n<390;n++){g[n]=h[n];}
  53. }
  54. /* END of LEVEL0 */
  55. level5()
  56. {
  57. SHORT n;
  58. STATIC UBYTE h[]={
  59.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  60.       7,4,4,4,4,4,4,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,10,7,
  61.       7,4,7,7,7,7,7,7,7,7,1,7,7,7,7,7,7,7,7,1,1,1,1,1,1,1,1,1,1,7,
  62.       7,4,7,0,0,3,3,3,0,0,1,0,0,3,3,3,0,0,7,1,1,1,1,1,1,1,1,1,1,7,
  63.       7,4,7,0,7,7,7,7,7,7,1,7,7,7,7,7,7,0,7,1,1,1,1,1,1,1,1,1,1,7,
  64.       7,4,7,0,7,0,3,3,3,0,1,0,3,3,3,0,7,0,7,1,1,1,1,1,1,2,1,1,1,7,
  65.       7,7,7,7,7,7,7,7,7,7,1,7,7,7,7,7,7,7,7,1,1,1,1,1,1,1,1,1,1,7,
  66.       7,20,7,0,7,0,0,0,0,0,1,3,3,0,0,0,7,4,7,1,1,1,1,1,1,1,1,1,1,7,
  67.       7,0,7,0,7,7,7,7,7,7,1,7,7,7,7,7,7,4,7,1,1,1,1,1,1,1,1,1,1,7,
  68.       7,0,7,0,0,3,3,3,0,0,1,0,0,0,0,0,0,0,7,1,1,1,1,1,1,1,1,1,1,7,
  69.       7,0,7,7,7,7,7,7,7,7,1,7,7,7,7,7,7,7,7,1,1,1,1,1,1,1,1,1,1,7,
  70.       7,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,9,7,1,1,1,1,1,1,1,1,1,1,7,
  71.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  72. SDA[1]=1500; SDA[2]=1; SDA[3]=2; SDA[4]=15; SDA[5]=25;
  73. for(n=0;n<390;n++) {g[n]=h[n]; }
  74. }
  75. level3()
  76. {
  77. SHORT n;
  78. STATIC UBYTE h[]={
  79.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  80.       7,1,2,1,2,2,2,2,2,1,2,1,2,1,2,3,2,1,2,1,2,1,2,1,2,1,2,1,2,7,
  81.       7,2,8,1,8,2,8,2,8,2,8,1,8,1,8,1,8,1,8,1,8,1,8,1,8,1,8,1,8,7,
  82.       7,1,1,1,1,2,1,2,3,2,1,1,2,2,2,1,1,1,1,3,1,2,2,2,1,3,1,1,2,7,
  83.       7,1,8,1,8,3,8,2,8,3,8,1,8,1,8,1,8,1,8,2,8,1,8,1,8,3,8,1,8,7,
  84.       7,2,1,3,1,3,3,1,3,3,0,2,1,1,1,1,1,3,2,0,1,3,2,2,1,2,1,1,2,7,
  85.       7,2,8,3,9,2,8,1,8,1,8,3,8,1,8,1,8,1,8,1,8,2,8,2,8,2,8,1,8,7,
  86.       7,3,1,2,1,2,2,3,1,3,1,3,3,1,1,2,2,3,1,0,1,2,3,2,2,2,1,1,2,7,
  87.       7,3,8,2,8,2,8,2,8,2,8,2,8,2,8,2,8,3,8,0,8,3,8,1,8,1,8,1,8,7,
  88.       7,2,2,2,1,3,1,2,2,2,1,2,2,2,1,3,1,2,2,2,2,2,1,2,2,2,1,1,1,7,
  89.       7,1,8,2,8,1,8,2,8,1,8,1,8,3,8,3,8,2,8,3,8,1,8,2,8,2,8,1,8,7,
  90.       7,10,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  91.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  92.  
  93.  
  94. SDA[1]=1500; SDA[2]=1; SDA[3]=2; SDA[4]=15; SDA[5]=15;
  95. for(n=0;n<390;n++) {g[n]=h[n];}
  96. }
  97. level4()
  98. {
  99. SHORT n;
  100. STATIC UBYTE h[]={
  101.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  102.       7,2,1,1,1,2,3,2,1,1,1,1,1,1,1,1,4,4,2,1,1,2,1,1,1,1,1,1,9,7,
  103.       7,1,1,2,1,2,2,2,1,1,1,1,2,1,1,1,1,2,1,1,1,2,2,3,2,1,1,2,2,7,
  104.       7,1,2,2,1,1,2,1,2,1,2,2,1,1,1,1,2,1,1,2,1,2,2,3,2,2,1,2,1,7,
  105.       7,2,1,1,1,2,1,2,1,1,1,1,1,1,2,1,1,1,1,1,1,2,2,2,1,1,1,1,2,7,
  106.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,1,1,1,1,1,7,
  107.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,4,1,1,1,1,1,1,1,1,7,
  108.       7,5,0,2,1,1,1,1,1,2,2,2,2,2,2,2,2,1,1,1,2,1,1,1,1,1,1,1,1,7,
  109.       7,1,1,2,1,1,1,1,2,2,1,1,1,1,1,2,1,2,2,1,1,1,1,1,1,1,1,1,1,7,
  110.       7,1,1,1,1,1,1,5,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,3,1,1,1,7,
  111.       7,1,1,2,1,2,3,1,3,1,2,1,1,1,1,1,2,1,1,1,1,1,3,1,1,2,1,1,1,7,
  112.       7,1,1,1,1,3,3,1,1,2,2,6,2,6,1,1,2,1,1,1,2,3,3,1,2,2,1,1,10,7,
  113.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  114. SDA[1]=2000; SDA[2]=65; SDA[3]=110; SDA[4]=50; SDA[5]=1;
  115. for(n=0;n<390;n++){g[n]=h[n];} }
  116. level1()
  117. {
  118. SHORT n;
  119. STATIC UBYTE h[]={
  120.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  121.       7,1,1,1,1,1,14,1,1,4,4,1,1,1,1,1,1,1,1,2,2,1,1,19,1,1,1,1,1,7,
  122.       7,1,2,1,2,1,2,1,2,1,4,4,4,4,4,4,4,1,1,1,2,1,1,2,1,1,1,1,1,7,
  123.       7,1,1,1,1,1,1,1,1,1,4,1,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,10,7,
  124.       7,1,1,1,1,1,1,1,1,1,4,1,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,7,
  125.       9,1,1,1,1,1,1,1,1,1,1,2,3,3,3,3,3,2,1,1,1,1,1,1,1,1,1,1,1,7,
  126.       7,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,8,2,1,1,1,1,1,1,1,7,
  127.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,15,1,1,1,1,15,1,1,7,
  128.       7,1,1,1,1,1,1,1,14,1,1,1,1,1,1,8,1,1,1,1,1,1,8,1,1,1,1,1,1,7,
  129.       7,1,0,1,2,1,1,1,1,1,1,1,1,1,8,1,1,1,2,1,2,2,2,8,1,1,1,1,1,7,
  130.       7,1,21,1,1,1,1,1,1,1,1,1,1,8,1,1,1,2,2,1,1,1,1,1,8,1,1,1,1,7,
  131.       7,1,1,1,1,3,1,2,2,1,1,1,8,1,1,1,2,2,2,1,20,1,1,1,1,8,1,23,1,7,
  132.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  133. SDA[1]=1600; SDA[2]=1; SDA[3]=2; SDA[4]=12; SDA[5]=10;
  134.  for(n=0;n<390;n++) {g[n]=h[n];} }
  135. level2()
  136. {
  137. SHORT n;
  138. STATIC UBYTE h[]={
  139.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  140.       7,8,2,3,3,3,3,3,5,2,2,3,2,2,2,3,2,0,2,7,0,0,0,0,0,0,0,0,0,7,
  141.       7,0,8,8,0,0,0,3,0,3,2,2,2,0,2,0,2,0,8,7,0,7,1,7,7,8,8,8,0,7,
  142.       7,0,9,8,0,0,0,0,0,3,3,0,0,0,0,0,8,8,0,7,0,7,7,1,7,10,6,7,0,7,
  143.       7,0,8,0,8,0,0,0,0,0,0,0,0,0,0,8,0,8,0,0,0,7,2,2,2,8,6,7,0,7,
  144.       7,0,8,0,8,8,0,0,0,0,0,0,0,0,8,8,0,8,0,7,0,7,4,4,4,8,6,7,7,7,
  145.       7,0,8,0,8,0,8,0,0,0,0,0,0,8,0,8,0,8,0,7,7,7,5,5,5,8,6,6,6,7,
  146.       7,0,8,0,8,0,8,8,0,0,0,0,8,8,0,8,0,8,0,7,7,7,1,8,8,8,8,1,6,7,
  147.       7,0,0,0,0,0,0,0,8,0,0,8,0,0,0,0,0,0,0,7,5,1,1,1,1,1,6,1,6,7,
  148.       7,0,3,4,3,0,4,4,5,5,4,4,4,4,4,0,4,4,0,7,7,7,1,1,2,1,0,0,1,7,
  149.       7,1,4,1,4,4,1,4,1,4,1,4,1,4,1,4,1,4,0,0,8,1,1,1,2,1,1,6,1,7,
  150.       7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1,1,1,1,1,1,1,1,7,
  151.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  152. SDA[1]=2500; SDA[2]=50; SDA[3]=70; SDA[4]=45; SDA[5]=1;
  153. for(n=0;n<390;n++) {g[n]=h[n]; }
  154. }
  155.  /* 13 eiluciu. 30 stulpeliu. */
  156. level6()
  157. {
  158. SHORT n;
  159. STATIC UBYTE h[]={
  160.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  161.       7,9,1,1,1,1,2,2,2,2,1,2,1,1,1,1,1,8,1,1,1,1,1,1,0,1,1,1,10,7,
  162.       7,1,1,1,1,1,1,3,2,1,2,3,1,2,1,1,1,8,1,2,1,1,1,1,0,1,3,1,1,7,
  163.       7,1,3,1,2,1,1,1,1,3,1,2,1,1,1,1,1,8,1,1,1,1,1,1,0,1,1,1,1,7,
  164.       7,1,1,1,1,1,2,3,2,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,0,1,1,1,1,7,
  165.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,0,1,1,1,1,7,
  166.       7,1,1,17,17,17,17,17,17,17,17,17,17,17,17,17,1,8,1,1,1,1,1,1,0,1,1,1,1,7,
  167.       7,1,1,1,1,1,1,3,1,1,2,1,1,1,1,1,1,8,1,1,1,1,1,1,4,1,1,1,1,7,
  168.       7,1,2,1,1,1,1,1,1,1,1,2,3,1,1,1,1,8,1,1,1,1,1,1,1,3,1,1,1,7,
  169.       7,8,8,8,8,8,8,2,2,15,8,8,8,8,8,8,8,15,1,1,1,1,1,1,1,1,1,1,1,7,
  170.       7,1,1,1,1,3,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  171.       7,3,3,3,1,1,1,3,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,7,
  172.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  173. SDA[1]=2500; SDA[2]=50; SDA[3]=70; SDA[4]=15; SDA[5]=5;
  174.  /*     TIM       CRISTAL  HMAGMA      ITEMS    BONUS  */
  175. for(n=0;n<390;n++) {g[n]=h[n]; }
  176. }
  177. level7()
  178. {
  179. SHORT n;
  180. STATIC UBYTE h[]={
  181.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  182.       7,2,3,3,3,2,3,2,3,3,3,2,2,2,3,2,2,2,2,2,2,2,1,1,1,1,1,1,9,7,
  183.       7,3,3,3,3,2,3,3,3,3,3,3,2,3,2,3,2,2,3,2,3,2,1,1,1,1,1,1,1,7,
  184.       7,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,1,1,4,4,4,4,4,7,
  185.       7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,4,4,4,4,0,7,
  186.       7,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,1,1,4,4,4,4,4,7,
  187.       7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,4,4,0,5,5,7,
  188.       7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,4,0,5,5,5,7,
  189.       7,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,7,
  190.       7,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,1,1,1,1,1,1,1,7,
  191.       7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,7,
  192.       7,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,1,1,1,1,1,1,1,7,
  193.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  194. SDA[1]=500; SDA[2]=1; SDA[3]=2; SDA[4]=15; SDA[5]=20;
  195. for(n=0;n<390;n++) {g[n]=h[n]; } }
  196. level8()
  197. {
  198. SHORT n;
  199. STATIC UBYTE h[]={
  200.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  201.       7,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,2,4,4,4,4,4,4,7,
  202.       7,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,4,4,4,4,4,4,4,4,7,
  203.       7,10,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,4,4,4,4,4,5,5,4,4,4,7,
  204.       7,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,4,4,4,4,4,5,5,4,4,4,7,
  205.       7,2,3,2,4,4,4,4,4,4,4,4,4,4,4,4,2,3,2,4,4,4,4,4,5,5,4,4,4,7,
  206.       7,2,3,2,4,4,4,4,4,4,4,4,4,4,4,4,2,3,2,4,4,4,4,4,5,5,4,4,4,7,
  207.       7,2,3,3,4,4,4,4,4,4,4,4,4,4,4,4,2,3,2,4,4,4,4,4,4,4,4,4,4,7,
  208.       7,2,3,2,4,4,4,4,4,4,4,4,4,4,4,4,2,3,2,2,2,2,2,2,2,2,2,2,2,7,
  209.       7,3,1,2,4,4,4,4,4,4,4,4,4,4,4,4,2,3,3,3,3,3,3,3,3,3,3,3,9,7,
  210.       7,2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,2,7,
  211.       7,3,1,1,1,3,3,1,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,7,
  212.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  213. SDA[1]=300; SDA[2]=50; SDA[3]=70; SDA[4]=25; SDA[5]=5;
  214.  /*     TIM       CRISTAL  HMAGMA      ITEMS    BONUS  */
  215. for(n=0;n<390;n++) {g[n]=h[n]; }
  216. }
  217. level9()
  218. {
  219. SHORT n;
  220. STATIC UBYTE h[]={
  221.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  222.       7,9,2,2,2,3,2,2,2,3,2,2,2,2,2,3,2,2,2,2,3,2,3,2,3,2,3,2,3,7,
  223.       7,3,2,3,3,2,2,3,3,2,3,2,3,2,3,2,3,2,3,3,2,2,2,3,3,3,2,2,2,7,
  224.       7,3,3,2,2,3,3,3,2,2,2,2,2,2,2,2,3,3,3,2,3,3,3,2,2,3,3,3,3,7,
  225.       7,2,3,3,3,2,2,2,3,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,3,2,2,3,3,7,
  226.       7,3,2,2,3,3,3,3,3,3,2,3,3,3,3,3,2,2,2,3,3,3,3,3,3,3,3,2,2,7,
  227.       7,3,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3,3,2,7,
  228.       7,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,2,7,
  229.       7,3,2,2,2,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,2,3,3,3,3,3,3,3,7,
  230.       7,2,3,3,3,3,3,3,3,3,3,3,3,2,2,2,3,3,3,3,3,3,3,3,3,2,2,2,3,7,
  231.       7,3,3,3,3,3,3,2,2,3,3,3,3,3,3,3,3,3,2,3,2,3,3,3,3,2,2,2,3,7,
  232.       7,3,2,3,3,3,3,3,3,3,3,2,3,3,10,3,3,3,2,3,3,3,3,3,2,2,3,3,3,7,
  233.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  234. SDA[1]=2000; SDA[2]=1; SDA[3]=2; SDA[4]=50; SDA[5]=1;
  235. for(n=0;n<390;n++) {g[n]=h[n]; } }
  236. level10()
  237. {
  238. SHORT n;
  239. STATIC UBYTE h[]={
  240.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  241.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  242.       7,1,1,1,1,1,1,1,1,1,3,1,1,1,1,1,1,1,1,1,3,1,1,1,1,1,1,1,1,7,
  243.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  244.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  245.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  246.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  247.       7,1,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,1,1,7,
  248.       7,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,7,
  249.       7,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,7,
  250.       7,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,7,
  251.       7,1,0,1,1,1,1,1,1,1,1,1,1,10,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,7,
  252.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  253. SDA[1]=1000; SDA[2]=1; SDA[3]=2; SDA[4]=18; SDA[5]=20;
  254. for(n=0;n<390;n++) {g[n]=h[n]; } }
  255. level11()
  256. {
  257. SHORT n;
  258. STATIC UBYTE h[]={
  259.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,18,7,7,7,7,
  260.       7,3,0,9,0,7,18,18,18,18,18,7,3,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0,0,7,
  261.       7,0,0,0,0,7,3,3,3,3,3,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,
  262.       7,0,0,3,0,7,16,16,16,16,16,7,0,0,0,3,0,0,0,3,0,0,0,0,0,0,0,0,0,7,
  263.       7,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,
  264.       7,0,0,0,0,0,0,0,0,0,3,0,0,0,3,0,0,0,0,0,0,0,3,0,0,0,0,0,0,7,
  265.       7,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,7,
  266.       7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,3,0,0,3,0,0,0,0,0,0,3,7,
  267.       7,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,7,
  268.       7,4,4,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,4,4,7,
  269.       7,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4,7,
  270.       7,4,4,4,0,0,2,0,0,0,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4,4,7,
  271.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  272. SDA[1]=2000; SDA[2]=1; SDA[3]=2; SDA[4]=8; SDA[5]=2;
  273. for(n=0;n<390;n++) {g[n]=h[n]; } }
  274. level12()
  275. {
  276. SHORT n;
  277. STATIC UBYTE h[]={
  278.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  279.       7,2,1,1,1,1,1,2,3,8,2,3,1,2,2,1,2,2,1,8,2,2,1,1,18,1,2,1,1,7,
  280.       7,1,1,1,1,2,1,2,2,8,1,2,1,1,2,1,1,2,1,8,2,1,2,1,1,1,2,1,1,7,
  281.       7,1,1,2,1,2,1,1,2,8,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,7,
  282.       7,1,3,1,1,1,2,1,2,8,1,1,1,8,8,8,8,8,8,8,1,1,2,1,1,2,1,3,1,7,
  283.       7,8,8,8,8,8,8,1,8,8,8,8,8,8,2,1,1,1,1,1,1,1,1,2,2,1,1,1,1,7,
  284.       7,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,8,8,8,8,8,8,8,8,8,7,
  285.       7,1,1,1,2,1,0,1,1,8,8,8,8,8,8,8,8,8,8,8,1,1,1,1,1,1,2,2,2,7,
  286.       7,1,1,1,1,2,0,8,1,1,1,1,1,1,1,1,2,2,3,8,1,1,1,2,1,1,2,2,2,7,
  287.       7,1,1,2,1,1,0,8,2,1,1,1,1,1,1,1,2,1,1,8,2,1,2,1,2,1,3,2,2,7,
  288.       7,1,1,1,1,1,2,8,1,1,2,1,1,1,1,1,1,1,1,8,2,0,1,1,1,1,1,1,2,7,
  289.       7,9,1,1,1,1,3,8,1,1,2,1,1,2,1,1,2,0,0,0,2,1,2,1,2,1,1,1,10,7,
  290.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  291. SDA[1]=2000; SDA[4]=6; SDA[5]=10;
  292. for(n=0;n<390;n++) {g[n]=h[n]; } }
  293.